home *** CD-ROM | disk | FTP | other *** search
/ So Who's Dr. Rabbit? / SWDR_1.iso / pc / swdrmov / myfolder.dxr / MyFolder Scripts Int_34_Hilite Exitframe Script.ls < prev    next >
Encoding:
Text File  |  1997-07-28  |  549 b   |  17 lines
  1. global gSpecialObjects
  2.  
  3. on exitFrame
  4.   UtilUpdateFrame()
  5.   UtilGoToFrame(the frame + 1)
  6.   set WorkField to getProp(gSpecialObjects, #WorkField)
  7.   if getProp(gSpecialObjects, #WorkCount) > 0 then
  8.     set memberNum to the number of member getProp(gSpecialObjects, #WorkField)
  9.     set fieldString to the text of member memberNum
  10.     set tempString to line 1 of fieldString
  11.     set Char1 to 1
  12.     set Char2 to the number of chars in tempString + 1
  13.     hilite char Char1 to Char2 of field memberNum
  14.     setProp(gSpecialObjects, #CurLine, 1)
  15.   end if
  16. end
  17.